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-- file codedefs.mesa 

-- last modified by Sweet. July 14. 1978 2:17 PM 

DIRECTORY 

AltoDefs: FROM "altodefs" USING [Address, BYTE, wordlength]. 

LitDefs: FROM "litdefs" USING [LTIndex. STIndex]. 

SymDefs: FROM "symdefs" USING [BTIndex. Bytelndex, ContextLevel . HTIndex, ISEIndex, ISENull. IZ]. 

TableDefs: FROM "tabledefs" USING [TableLimit. TableNotif ier]; 

DEFINITIONS FROM LitDefs. TableDefs. SymDefs; 

CodeDefs: DEFINITIONS ■ 
BEGIN 

Lexeme: TYPE ■ RECORD [ 

lexvalue: SELECT lextag: ♦ FROM 
literal ■> [ 

SELECT littag: * FROM 

word "> [lexlti: LTIndex], 
string ■> [lexsti: STIndex]. 
ENDCASE]. 
se ■> [lexsei: ISEIndex], 
bdo ■> [lexbdoi: BDOIndex], 
other ■> [ 

SELECT sublextag: * FROM 

register »> [lexrn: RegisterName]. 
byte "> [lexalpha: ByteOffset. long: BOOLEAN], 
ENDCASE], 
ENDCASE]; 

topostack: se Lexeme » Lexeme[lexvalue: se[ISENull]]; 

RegisterName: TYPE - [0..17777B]; -- fill variant record to 16 bits 
ByteOffset: TYPE - [0..7777B]; -- fill variant record to 16 bits 

ChunkBase: TYPE ■ BASE POINTER; -- to chunk area of compiler data space 

BDOIndex: TYPE ■ ChunkBase RELATIVE POINTER [0 . .TableLimit) TO BDOItem; 
BDONull: BDOIndex « LOOPHOLE[TableLimit-l]; 
InUseThread: BDOIndex - L00PH0LE[TableLimit-2]; 

BDOComponentNames: TYPE ■ {basecomponent, dispcomponent. off setcomponent}; 

BDOComponent: TYPE ■ RECORD [ 
posn: FullBitAddress, 
size: WORD, 
level: ContextLevel]; 

BDOItem: TYPE ■ RECORD [ 
free: BOOLEAN, 
thread: BDOIndex, 
tag: BDOTag. 
base: BDOComponent. 
disp: BDOComponent, 
offset: BDOComponent]; 

BDOTag: TYPE - {bdo. bo, o} ; 

FullBitAddress: TYPE « RECORD [ 

wd: AltoDefs. Address, bd: [0. .AltoDefs. wordlength)]; 

ITOS: ContextLevel « LAST[ContextLevel]; 

TosBDOComponent: BDOComponent ■ 

BDOComponent[level : ITOS, posn: FullBitAddress[0, 0], size: AltoDefs. wordlength]; 
WordZeroBDOComponent: BDOComponent « 

BDOComponentClevel : IZ, posn: FullBitAddress[0, 0], size: AltoDefs .wordlength]; 

CodeChunkType: TYPE ■ {code, label, jump, other}; 

CCItem: TYPE - RECORD [ 
free: BOOLEAN. 

pad: [0..1], -- this is NOT a fill field 
flink, blink: CCIndex, 
ccvalue: SELECT cctag: CodeChunkType FROM 
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code ■> [ 

sourcefileindex: Bytelndex, 

realinst. minimalStack: BOOLEAN. 

inst: AUoDefs.BYTE. 

aligned: BOOLEAN. 

isize: [0..3]. 

fill: [0..17B). 

parameters: ARRAY [1..1) OF WORD], 
label ■> C 

label seen: BOOLEAN. 

jumplist: JumpCCIndex]. 
jump -> [ 

jsize: C0..7]. 

jtype: JumpType. 

jparam: AUoDefs.BYTE. 

forward: BOOLEAN. 

thread: JumpCCIndex. 

jbytes: INTEGER, 

fixedup, completed: BOOLEAN. 

destlabel: LabelCCIndex], 
other -> [obody: SELECT otag: ♦ FROM 
table «> [ 

btab: BOOLEAN. 

tablecodebytes: [0..7]. 

taboffset: INTEGER], 
startbody, endbody ■> [ 

index: BTIndex]. 
ENDCASE]. 
ENDCASE]; 

NULLfileindex: Bytelndex - -1; 

CCIndex: TYPE « ChunkBase RELATIVE POINTER [0. . TableLimit) TO CCItem; 

CCNull: CCIndex « LOOPHOLE[TableLimit-l]; 

JumpCCIndex: TYPE ■ ChunkBase RELATIVE POINTER [0 . .TableLimit) TO jump CCItem; 

JumpCCNull: JumpCCIndex ■ LOOPHOLE[TableLimit-l]; 

LabelCCIndex: TYPE - ChunkBase RELATIVE POINTER [0. . TableLimit) TO label CCItem; 

LabelCCNull: LabelCCIndex » LOOPHOLE[TableLimit-l]; 

CodeCCIndex: TYPE = ChunkBase RELATIVE POINTER [0. .TableLimit) TO code CCItem; 

CodeCCNull: CodeCCIndex « LOOPHOLE[TableLimit"l]; 

OtherCCIndex: TYPE « ChunkBase RELATIVE POINTER [0. . TableLimit) TO other CCItem; 

TableCCIndex: TYPE « ChunkBase RELATIVE POINTER [0 . .TableLimit) TO table other CCItem; 

TableCCNull: TableCCIndex - LOOPHOLECTableLimit-1]; 

Compared ass: TYPE ■ {word, byte}; 

JumpType: TYPE ■ 

{JumpE, JumpN. JumpL, JumpGE. JumpG, JumpLE, 
UJumpL, UJumpGE, UJumpG, UJumpLE, ZJumpE, ZJumpN, 
Jump, JumpA, JumpC, JumpCA, JumpRet, 
NILJumpE, NILJumpN, PAIRJumpL; PAIRJumpG, 
BYTEJumpE, BYTEJumpN, BITJumpE, BITJumpN}; 

EXLabel Record: TYPE ■ RECORD [ 
free: BOOLEAN, 
thread: EXLRIndex. 
labelcc: CARDINAL, 
labelhti: HTIndex, 
labelcci: LabelCCIndex]; 

EXLRIndex: TYPE « ChunkBase RELATIVE POINTER [0 . .TableLimit) TO EXLabelRecord; 
EXLRNull: EXLRIndex - LOOPHOLE[TableLimit-l]; 

Stkltem: TYPE - RECORD[ 

uplink, downl ink: Stklndex, 
stkvalue: SELECT stktag: * FROM 

item «> [lexeme: se Lexeme], 

MARK -> [label: LabelCCIndex], 

ENDCASE]; 

Stklndex: TYPE - POINTER TO Stkltem; 

EvalStackSize: INTEGER ■ 8; 
MaxParmsInStack: INTEGER - EvalStackSize-3; 

TempStateRecord: TYPE - RECORD[ 
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pendtemplist. templist» heapUst: ISEIndex, 
tempctxlvl: ContextLevel . 
tempstarti framesz: INTEGER]; 

Chunklndex: TYPE ■ ChunkBase RELATIVE POINTER [0, .TableDefs.TableLimit) ; 

GetChunk: PROCEDURE [size: CARDINAL] RETURNS [Chunklndex]; 
FreeChunk: PROCEDURE [i: Chunklndex. size: CARDINAL]; 

DriverNotify, AddressNotify, StackNotify, Flow/Notify. StoreNotify, 

ExpressionNotify, FlowExpressionNotify, StatementNotify, CallsNotify, 
OutCodeNotify, PeepholeNotify . JumpsNotify, FinalNotify: 
TableDefs.TableNotifier; 

OpTable, Driver, Address, Stack, Flow, Store, Expression, FlowExpression, 
Statement, Calls, OutCode, PeepholeQ, PeepholeU, PeepholeZ, 
Jumps, Final: 
PROGRAM; 

END... 



